home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Crypt of Fear (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  357 lines
  1. 10 poke53280,.:poke53281,.:goto860
  2. 20 hr=fnh(.):pokefnpm(10),k:pokefnsm(10),hr:return
  3. 30 m=int(rnd(f)*29):pokes+f,h(m):pokes,l(m):pokes+g,h(m+h):pokes+7,l(m+h)
  4. 40 pokes+15,h(m+h+g):pokes+14,l(m+h+g):return
  5. 50 rem wallhandler
  6. 60 vl=fc:onfc+fgosub500,500,520,550,570
  7. 70 return
  8. 80 print"[147][146]     [205][164][210][198][195][196][197][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][197][196][195][198][210][175][164][206]"
  9. 90 print"     [167]"spc(28)"[165]"
  10. 100 print"     Y   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]   T"
  11. 110 print"     [200]   [194][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206][194]   [199]"
  12. 120 print"     B   GB[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]HH   B"
  13. 130 print"     G   TTM[164]RFCDEEEEEEDCFR[164]NYY   H"
  14. 140 print"     T   [165][165]Y  [164][164][164][164][164][164][164][164][164][164][164][164] [167] [167][167]   Y"
  15. 150 print"     [165]  [167][167] [200]  [194][205][164][164][164][164][164][164][164][164][206][194]  [165] [165][165]  [167]"
  16. 160 print"    [167]   [217][217] [194]  [199][194][205][164][210][198][198][210][164][206][194][200]  [212] [212][212]   [165]"
  17. 170 print"    Y   HH G  TT[167] [164][164][164][164] [165]YY  G GG   T"
  18. 180 print"    [200]   [194][194] [212]  [165][165][217][217][196][196][196][196][212][212][167][167]  [194] [194][194]   [199]"
  19. 190 print"    B   GG [165] [167][167] HH[172][162][162][187]GG [165][165] H HH   B"
  20. 200 print"    G   TT[167]  YY BB[161][146]  [161]BB TT Y YY   H"
  21. 210 print"    T   [165][165]Y  HH GG[180][146]  [170][146]HH GG [167] [167][167]   Y"
  22. 220 print"    [165]  [167][167] [200]  [194][194] [212][212][167][146][164][164][165][146][217][217] [194][194]  [165] [165][165]  [167]"
  23. 230 print"   [167]   [217][217] [194]  [199][199] [204][165][210][210][210][210][167][186] [200][200]  [212] [212][212]   [165]"
  24. 240 print"   Y   HH G  TTN[163][163][163][163][163][163][163][163]MYY  G GG   T"
  25. 250 print"   [200][160]  [194][194] [212]  [165][165]"spc(10)"[167][167]  [194] [194][194]   [199]"
  26. 260 print"   [194]   [199][199] [165] [167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165] [200] [200][200]   [194]"
  27. 270 print"   G   TTN[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]MYY   H"
  28. 280 print"   [212]   [165][165]"spc(22)"[167][167]   [217]"
  29. 290 print"   [204][175][175][186][206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205][204][175][175][186]"
  30. 300 print"  [206]    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]    [205]":print" [206]"spc(36)"[205]"
  31. 310 print"[151]   ";d$(cd);"      # $ % & ) ( ' * + g [211]     ";d$(cd);"  [146]";l$(dd);
  32. 320 return
  33. 330 rem 1st left block
  34. 340 print"[183][183][183][183][183][208]":print"[175][175][175]":return
  35. 350 rem 2nd left block
  36. 360 print"";tab(10)"[207][208]":print""tab(9)"[175]":return
  37. 370 rem 3rd left block
  38. 380 print"";tab(15)"[207][208]":print""tab(15)"[164]":return
  39. 390 rem 4th left block
  40. 400 print"";tab(18)"[177]":print""tab(17)"[204]":return
  41. 410 rem 1st right block
  42. 420 print""tab(34)"[207][183][183][183][183]":print""tab(37)"[175][175]":return
  43. 430 rem 2nd right block
  44. 440 print"";tab(28)"[183][208]":print""tab(30)"[175]":return
  45. 450 rem 3rd right block
  46. 460 print"";tab(23)"[207][208]":print""tab(24)"[164]":return
  47. 470 rem 4th right block
  48. 480 print"";tab(21)"[178]":print""tab(22)"[186]":return
  49. 490 rem 1st wall
  50. 500 print"";:forx=.to19:printtab(6)left$(l$,28):next:return
  51. 510 rem 2nd wall
  52. 520 print"";:forx=.to12:printchr$(13)tab(12)left$(l$,15);:next
  53. 530 print"[146] ":return
  54. 540 rem 3rd wall
  55. 550 print"";:forx=.to6:printtab(17);left$(l$,6):next:return
  56. 560 rem 4th wall
  57. 570 print"";:printtab(18)"[172][195][195][187]"
  58. 580 forx=.tof:printtab(18)"[212]  [217]":next:printtab(18)"[204][164][164][186]":return
  59. 590 rem look routine
  60. 600 cem=fnte(.):pokeed,cem:printl$(dd);:gosub80
  61. 610 fc=h:vl=fc:lv=cd-f+h*-(cd=f):rv=cd+f+h*(cd=h)
  62. 620 ebm=fncp(.):ifebm>-fandebm<256then650
  63. 630 iffcthenfc=fc-f:goto620
  64. 640 return
  65. 650 el=fncp(lv):er=fncp(rv)
  66. 660 if(dl(ebm,.))then680
  67. 670 gosub60:fc=fc-f:onf-(fc<.)goto620,740
  68. 680 ifdl(el,.)andfc<hthenonfc+fgosub340,360,380,400
  69. 690 ifdl(er,.)andfc<hthenonfc+fgosub420,440,460,480
  70. 700 fc=fc-f:iffc>-fthen620
  71. 710 ifdl(cl,k)=.then740
  72. 720 forx=.tog:pokepl,21:print:if(dl(cl,k)andbo(x))thenprinttab(x*h+3);oa$(x)
  73. 730 next
  74. 740 gosub780:ifcl=wlandcd=hthenpokepl,7:print:printtab(18)"[205][206][157][157][206][205]"
  75. 750 pokefnpm(u),15
  76. 760 csm=fnsw(.):pokev+24,(peek(v+24)and15)orcsm:return
  77. 770 rem monster display
  78. 780 iffcandvlthenvl=vl-f
  79. 790 d=54:pokefnmp(f),d:pokefnmp(k),d:pokefnmp(3),d:pokefnmp(5),d
  80. 800 el=.:forx=vlto.step-f:fc=fncm(x):ifdl(fc,f)=.then840
  81. 810 fc=dl(fc,f)-f:el=(elorsp(x+h))
  82. 820 mb=sp(x)-f:ford=ftolen(sb$(x,fc)):pokefnmp(mb+d),asc(mid$(sb$(x,fc),d,f))
  83. 830 pokebc+sp(x)+d,cs(fc):next
  84. 840 next:pokev+21,el:return
  85. 850 rem set up vic
  86. 860 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)
  87. 870 poke53272,peek(53272)and15:poke648,192:poke53272,(peek(53272)and240)or12
  88. 880 poke53270,(peek(53270)and231)
  89. 890 print"[147][151]":gosub1950:x=51520:gosub900:goto930
  90. 900 reada$:ifa$="x"thenpoke53280,.:return
  91. 910 fora=1tolen(a$)step2:d=asc(mid$(a$,a,1))-48:fc=asc(mid$(a$,a+1,1))-48
  92. 920 d=d+(d>10)*7:fc=fc+(fc>10)*7:pokex,d*16+fc:poke53280,a:x=x+1:next:goto900
  93. 930 forx=.to63:poke52608+x,.:next
  94. 940 dimdl(255,2),bo(16),sp(7),sb$(3,7),d$(4),l$(6),oa$(8),cs(7),m(15)
  95. 950 dimhc(2),mh(15),m$(1),n$(2),g$(2),h(40),l(40)
  96. 960 jp=56320:hr=83:x=.:d=.:fc=.:cl=17:cd=2:vl=.:el=.:er=.:vs=.
  97. 970 d(1)=1:d(2)=16:d(3)=-1:d(4)=-16:p=.:l=1:lf=10:forx=.to7:readsp(x):next
  98. 980 tgl=16:csm=.:cem=192:v=53248:forx=.to39
  99. 990 l$=l$+chr$(32):next:forx=1to4:d$(x)=mid$("eswn",x,1):next
  100. 1000 j=.:f=1:h=4:g=8:k=2:i=.02:r=.95:m=.:u=.:tl=388:dd=6:pl=214:ed=648:s=54272
  101. 1010 ri=.92:bc=v+38:y=25:fl=550:all=479:wl=17:cr$=chr$(13)
  102. 1020 deffnjs(x)=15-(peek(jp)and15):deffnjf(x)=((peek(jp)and16)=.)
  103. 1030 deffncp(x)=fc*d(cd)+(cl+d(x)):deffnsw(x)=(tgl-csm)
  104. 1040 deffnte(x)=(tl-cem):deffncm(x)=x*d(cd)+cl:deffnmp(x)=cem*256+1016+x
  105. 1050 deffnpm(x)=55296+970+(x*2):deffnsm(x)=cem*256+970+(x*2):deffnh(x)=294-hr
  106. 1060 deffnlf(lf)=((lf<5)*-k+(lf>=5andlf<10)*-7+(lf>=10)*-5)
  107. 1070 cem=fnte(.):printchr$(147):pokeed,cem:gosub2010:gosub760
  108. 1080 forx=.to16:bo(x)=2^x:next:forx=1to7:l$(x-1)=mid$("[159][154][156][151][144]",x,1):next
  109. 1090 hc(.)=2:hc(1)=8:hc(2)=10:m$(.)="  ":m$(1)="[146]  "
  110. 1100 n$(1)="[158]gold":n$(2)="life"
  111. 1110 forx=.to7:readcs(x):next:a$="":forx=1to4:readb$:a$=a$+b$:next:forx=1to223
  112. 1120 dl(x+15,.)=val(mid$(a$,x,1)):next
  113. 1130 forx=.to8:reada$:oa$(x)=a$:nextx
  114. 1140 forx=.to15:reada:m(x)=a:nextx
  115. 1150 forx=3to.step-1:ford=.to7:reada$:sb$(x,d)=a$:nextd,x
  116. 1160 forx=.to18:w1$=w1$+"[177][178]":w2$=w2$+"[178][177]":next
  117. 1170 forx=.to40:m=2703*(2^((x-20)/12)):ifm>65535thenm=65535
  118. 1180 h(x)=int(m/bo(8)):l(x)=m-h(x)*bo(8):next:forx=.to15
  119. 1190 a=int(rnd(f)*223+16):ifdl(a,.)=.or(x=14anda<224)then1190
  120. 1200 dl(a,f)=m(x):m(x)=a:mh(x)=x*g+f:next:dl(238,2)=bo(7)
  121. 1210 pokev+21,.:pokev+23,127:pokev+29,63:x=v:gosub900:gosub2670
  122. 1220 print"[155]  $$$$ press fire button to begin $$$$ ":waitjp,16,16
  123. 1230 gosub2260:gosub2490:gosub1240:gosub2430:goto1270
  124. 1240 pokeed,fnte(.):print"[147][146]";:pokev+32,.:forx=.to255step16:printtab(4);
  125. 1250 forjy=.to15:printm$(dl(x+jy,.));:ifcl=x+jythenprint"[157][157]()";
  126. 1260 nextjy:print:nextx:gosub760:pokeed,cem:pokev+21,.:return
  127. 1270 print"[147]":gosub760:pokev+32,5:gosub2700:gosub600:x=fre(.):it=ti+1000
  128. 1280 jy=fnjs(.):j=fnjf(.):ifj=.thenonjygoto1360,1370,,1390,70,70,,1380,70,70
  129. 1290 gosub20:lf=lf+i:pokev+32,fnlf(lf):on-(rnd(f)>.9)gosub30
  130. 1300 b=dl(cl,f):ifbandrnd(f)+b/100>rithengosub1630
  131. 1310 ifjandjy=kthengosub1450:gosub2700
  132. 1320 ifjthenonu+fgosub1730,1750,70,1840,70,1870,1890
  133. 1330 ifti>itthengosub2330
  134. 1340 on-(vs=.)goto1280:y=y-f:on-(y>.)goto1280:y=fl:dd=dd+f:on-(dd<6)goto1280
  135. 1350 print"[147][151]     your lantern fuel has expired!     ":gosub2450:goto1690
  136. 1360 on-(dl(cl+d(cd),.)=.)goto1410:cl=cl+d(cd):goto1430
  137. 1370 on-(dl(cl-d(cd),.)=.)goto1410:cl=cl-d(cd):goto1430
  138. 1380 cd=cd+f:goto1400
  139. 1390 cd=cd-f
  140. 1400 cd=cd+((cd=5)*h)+((cd=.)*-h):goto1430
  141. 1410 ifcl<>wlthengosub2670:gosub2700:goto1290
  142. 1420 ifl=allanddl(cl,f)=7then1920
  143. 1430 gosub600:goto1290
  144. 1440 rem command bar
  145. 1450 gosub2670:forx=.tog:if(landbo(x))thenpokefnpm(x),12
  146. 1460 next:x=.:a=fre(.):a=.:if(land(bo(u)))thenpokefnpm(u),15
  147. 1470 poke198,.:waitjp,16,.
  148. 1480 pokefnpm(x),.:pokefnpm(x),f:if(landbo(a))thenpokefnpm(a),12:goto1500
  149. 1490 pokefnpm(a),11
  150. 1500 gosub20:jy=fnjs(.):on-(rnd(f)>.9)gosub30
  151. 1510 p=l:ifjy=gthena=x:x=x+f+(x=10)*11
  152. 1520 ifjy=hthena=x:x=x-f+(x=.)*-11
  153. 1530 iffnjf(.)and(landbo(x))thenpokefnpm(u),12:u=x:pokefnpm(x),15:gosub2660
  154. 1540 iffnjf(.)thenreturn
  155. 1550 ifjy=fand(dl(cl,k)andbo(x))thenl=(lorbo(x)):dl(cl,k)=dl(cl,k)-bo(x)
  156. 1560 ifjy<>kthen1580
  157. 1570 if(landbo(x))andx>.thenl=(land(511-bo(x))):dl(cl,k)=dl(cl,k)orbo(x):u=.
  158. 1580 ifl<>pthengosub2670:gosub600:goto1450
  159. 1590 on-(x<=g)goto1480:gosub1600:goto1480
  160. 1600 g(k)=int(lf):print"";tab(15)n$(x-g);": [155]";:a$=str$(g(x-g))
  161. 1610 printright$("0000"+(right$(a$,len(a$)-f)),h):return
  162. 1620 rem monster hits
  163. 1630 on-(b=7)goto70:d=int(rnd(f)*3+f):pokev+33,hc(d-f):lf=lf-(b/((landh)+f))-d
  164. 1640 fort=.to99:next:pokev+33,.:iflf<.then1670
  165. 1650 pokev+32,fnlf(lf):gosub2730:gosub2700:return
  166. 1660 rem player killed
  167. 1670 print"[147]":forx=.to16:pokev+32,x:pokev+33,x:next:gosub2450:print"[151]"
  168. 1680 printtab(11)" s [158] l [150] a [129] i [158] n  !!"
  169. 1690 gosub2490:print"do you wish to enter the crypt again? "
  170. 1700 poke198,.:wait198,1:geta$:ifa$="n"thenpokeed,4:poke679,.:sys679
  171. 1710 pokev+21,.:printchr$(142):run
  172. 1720 rem lantern
  173. 1730 ifvs=.thenvs=f:dd=.:gosub600:return
  174. 1740 rem sword
  175. 1750 ifb=.orb=7orrnd(.)+lf/100<.5thengosub2730:gosub2700:return
  176. 1760 pokev+33,5:fort=.to100:next:pokev+33,.:forx=.to15
  177. 1770 onf-(m(x)=.)goto1780,1810
  178. 1780 ifcl=m(x)thenmh(x)=mh(x)-abs(rnd(.)+((land2)*f)+lf/6)+(land18>.)*-2
  179. 1790 on-(mh(x)>.)goto1810:ford=.to16:fort=.to3:pokev+39+t,d:nextt,d
  180. 1800 m(x)=.:dl(cl,f)=.:pokev+21,peek(v+21)and240:gosub2450:gosub1820
  181. 1810 next:gosub2730:gosub2700:return
  182. 1820 lf=lf+b:dl(cl,k)=(dl(cl,k)orbo(b)):gosub600:gosub2670:g(f)=g(f)+b*100
  183. 1830 return
  184. 1840 rem wand
  185. 1850 on-(b=g)goto1760:return
  186. 1860 rem elixir
  187. 1870 lf=lf+20:l=l-bo(u):pokefnpm(u),11:u=.:return
  188. 1880 rem map
  189. 1890 a=peek(v+21):gosub2760:gosub1240:gosub2430:gosub2670
  190. 1900 gosub760:pokev+21,a:pokev+32,fnlf(lf):gosub2700:return
  191. 1910 rem victory!!
  192. 1920 print"[147][158]";l$;"[150] brave knight,you have conquered crypt![158]";l$
  193. 1930 x=9:gosub1600:pokepl,11:print:printtab(23)"my hero![157][157][157][157][157][157][157][157][157][206]":goto1690
  194. 1940 rem copy char set
  195. 1950 poke56333,127:poke1,51
  196. 1960 poke781,9:poke782,1:poke90,.:poke91,216:poke88,.:poke89,248:sys41964
  197. 1970 poke1,55:poke56333,129:print"[147]";:gosub2280
  198. 1980 reada:ifa=-1thenreturn
  199. 1990 forx=.to7:readd:poke61440+a*8+x,d:next:goto1980
  200. 2000 rem opening marquee
  201. 2010 printchr$(8)chr$(142):print"[147][146]"spc(8)"[213][195][195][195][201][213][195][195][201] [213][201] [213][201][213][195][195][201][213][195][195][195][201]"
  202. 2020 print"[155][169][223][146]"spc(4)"[194][213][195][201][194][194][213][201][194] [194][202][195][203][194][194][213][201][194][202][201] [213][203]   [155][169][223]"
  203. 2030 print"[167] [146]"spc(4)"[194][194] [202][203][194][202][203][194] [202][201] [213][203][194][202][203][194] [194] [194]    [155][167] "
  204. 2040 print"[167] [146]"spc(4)"[194][194]   [194][213][201][202][201] [194] [194] [194][213][195][203] [194] [194]    [155][167] "
  205. 2050 print"[167] [146]"spc(4)"[194][194] [213][201][194][194][202][201][194] [194] [194] [194][194]   [194] [194]    [155][167] "
  206. 2060 print"[167] [146]"spc(4)"[194][202][195][203][194][194][194] [194][194] [194] [194] [194][194]   [194] [194]    [155][167] "
  207. 2070 print"[167] [146]"spc(4)"[202][195][195][195][203][202][203] [202][203] [202][195][203] [202][203]   [202][195][203]    [155][167] "
  208. 2080 print"[167] [146]   [152][213][195][195][201]"spc(24)"[155][167] "
  209. 2090 print"[167] [146]  [151][190][164][164][164][164][188][146]    [154][213][195][195][201][213][195][195][201]  [149][209][198][198][198][198][198][198][146][209] [155][167] "
  210. 2100 print"  [167] [146]  [151][182][153]M[164][164]N[151][146][181]    [154]BUIBBUCK   [158][161]\{$7e}\{$7e}[182][146]  [155][167] "
  211. 2110 print"  [167] [146]  [151][182][153][167]MN[165][151][146][181]    [154]BBBBBJI    [158][161]{$7e}\{$7e}\[182][146]  [155][167] "
  212. 2120 print"  [167] [146]  [151][182][153][167]NM[165][151][146][181]    [154]BBBBBUK    [158][161]\{$7e}\{$7e}[182][146]  [155][167] "
  213. 2130 print"  [167] [146]  [151][182][153]N[163][163]M[151][146][181]    [154]BJKBBB     [158][161]{$7e}\{$7e}\[182][146]  [155][167][160]"
  214. 2140 print"  [167] [146]  [151][190][163][163][163][163][188][146]    [154]JCCKJK     [158][161]\{$7e}\{$7e}[182][146]  [155][167] "
  215. 2150 print"  [167] [146]  [151][190][163][163][163][163][188][146]"spc(14)"[149][209][198][198][198][198][198][198][146][209] [155][167] "
  216. 2160 print"  [167] [146]"spc(6)"[129][213][195][195][195][201][213][195][195][201] [213][195][195][201] [213][195][195][201]"spc(6)"[155][167] "
  217. 2170 print"  [167] [146]"spc(6)"[129][194][213][195][195][203][194][213][195][203] [194][213][201][194] [194][213][201][194]"spc(6)"[155][167] "
  218. 2180 print"[213][195][203][202][195][201]    [129][194][202][201]  [194][202][201]  [194][202][203][194] [194][202][203][194]    [213][195][203][202][195][201]"
  219. 2190 print" [151][163][187][172][146][163]     [129][194][213][203]  [194][213][203]  [194][213][201][194] [194][213][201][202][201]    [151][163][187][172][146][163]"
  220. 2200 print"  [149][190][188][146]"spc(6)"[129][194][194]   [194][194]   [194][194][194][194] [194][194][202][201][194]     [149][190][188]"
  221. 2210 print"  [168][168][146]"spc(6)"[129][194][194]   [194][202][195][201] [194][194][194][194] [194][194] [194][194]     [149][168][168]"
  222. 2220 print"  [168][168][146]"spc(6)"[129][202][203]   [202][195][195][203] [202][203][202][203] [202][203] [202][203]     [149][168][168][175][175]"spc(31)"[175][175]"
  223. 2230 print" a [155][146]3d[149] [155][146]a[149]dventure [155][146]g[149]ame [155][146]b[149]y [155][146]c[149]leve [155][146]b[149]lakemore ";
  224. 2240 print"[152] ---- please wait..opening dunjons!----[145]";:return
  225. 2250 rem logo
  226. 2260 print"[147]";:forx=.to11:print"";w1$:print"";w2$:next:pokepl,8:print
  227. 2270 forx=.to13:printtab(14)left$(l$,13):next:printtab(14)left$(l$,13);
  228. 2280 print""tab(7)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  229. 2290 [153][163]7)"-===crypt of fear==v8.1===wait<
  230. 2300 printtab(7)"[171]by cleveland m. blakemore[146][179]
  231. 2310 [153][163]7)"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)":[142]
  232. 2320 [143] monster movement
  233. 2330 fc[178]15:[129]x[178].[164]fc:[145]f[171](m(x)[178].)[137]2340,2400
  234. 2340 [139]cl[179]m(x)[171]g[167]a[178]m(x)[170]d(h)
  235. 2350 [139]cl[177]m(x)[170]g[167]a[178]m(x)[170]d(k)
  236. 2360 [139]cl[177]m(x)[175]cl[179]m(x)[170]g[167]a[178]m(x)[170]d(f)
  237. 2370 [139]cl[179]m(x)[175]cl[177]m(x)[171]g[167]a[178]m(x)[170]d(f[170]k)
  238. 2380 [139]a[179].[176]a[177]255[167]2400
  239. 2390 [139]dl(a,.)[175]dl(a,f)[178].[167]dl(a,f)[178]dl(m(x),f):dl(m(x),f)[178].:m(x)[178]a
  240. 2400 [130]
  241. 2410 d[178]dl(cl,f):[139]d[167][145]d[141]70,2580,2610,2540,70,70,70,2640:[141]2700
  242. 2420 [151]v[170]21,.:fc[178].:[141]780:it[178]ti[170]1000:[142]
  243. 2430 [129]t[178].[164]3000:[130]:[142]
  244. 2440 [143] something died
  245. 2450 [151]s[170]5,15:[151]s[170]23,239:[151]s[170]24,15[170]32:[151]s[170]4,33
  246. 2460 a[178]200:[129]sw[178]100[164]50[169][171].5:[151]s[170]22,sw:a[178]a[172].93:[151]s[170]1,a:[130]
  247. 2470 [151]s[170]4,32:[129]t[178].[164]30:[130]:[151]s[170]23,.:[151]s[170]24,.:[142]
  248. 2480 [143] crypt whispers
  249. 2490 [141]2760:[151]s[170]5,16[172]11:[151]s[170]6,16[172]15[170]11:[151]s[170]23,239:[151]s[170]24,15[170]32
  250. 2500 [129]n[178].[164]5:[151]s[170]1,[181]([187](1)[172]10)[170]1:[129]sw[178].[164][181]([187](1)[172]200):[151]s[170]4,129
  251. 2510 [151]s[170]22,sw:[130]:[151]s[170]4,128:[129]t[178].[164]400:[130]t,n
  252. 2520 [129]t[178].[164]1500:[130]:[151]s[170]23,.:[151]s[170]24,15:[142]
  253. 2530 [143] blob
  254. 2540 [151]s[170]5,15:[151]s[170]23,239:[151]s[170]24,15[170]32:[151]s[170]4,33
  255. 2550 [129]sw[178].[164]150[169]5.25:[151]s[170]22,sw:[151]s[170]1,[181]([187](1)[172]10):[130]
  256. 2560 [151]s[170]4,32:[129]t[178].[164]400:[130]:[151]s[170]23,.:[151]s[170]24,15:[142]
  257. 2570 [143] cobra
  258. 2580 [141]2760:[151]s[170]5,155:[151]s[170]6,245:[151]s[170]4,129:[129]x[178]50[164]55:[151]s,d
  259. 2590 [129]t[178]35[164]55:[151]s[170]1,t:[130]t,x:[151]s[170]4,128:[129]t[178].[164]100:[130]:[142]
  260. 2600 [143] imp
  261. 2610 [141]2760:d[178]180:[129]a[178].[164]9:[151]s[170]4,33:[151]s[170]1,d:[129]t[178].[164]5
  262. 2620 [130]:[151]s[170]4,32:[129]t[178].[164]40:[130]:d[178]d[172].95:[130]a:[142]
  263. 2630 [143] demigorgon
  264. 2640 [141]2760:[151]s[170]5,8:[151]s[170]6,255:[151]s[170]4,23:f1[178]8:f2[178]4:[129]z[178]1[164]30:[151]s[170]1,f1
  265. 2650 [151]s[170]15,f2:f2[178]f2[172]1.01:f1[178]f1[170]1:[130]z:[151]s[170]6,15:[142]
  266. 2660 [143] beep
  267. 2670 [141]2760:[151]s[170]5,96:[151]s[170]6,96:[151]s[170]4,23:[151]s[170]2,85:[151]s[170]1,36
  268. 2680 [129]x[178].[164]10:[130]:[151]s[170]6,15:[142]
  269. 2690 [143] sinister music
  270. 2700 [141]2760:[151]s[170]5,4:[151]s[170]12,4:[151]s[170]19,4:[151]s[170]6,241:[151]s[170]13,241
  271. 2710 [151]s[170]20,241:[151]s[170]4,33:[151]s[170]11,33:[151]s[170]19,33:[141]30:[142]
  272. 2720 [143] slash
  273. 2730 [141]2760:[151]s[170]1,25:[151]s,5:[151]s[170]5,20:[151]s[170]4,129
  274. 2740 [129]t[178].[164]75:[130]:[151]s[170]4,128:[142]
  275. 2750 [143] clear sid
  276. 2760 [129]p[178]s[164]s[170]24:[151]p,.:[130]:[151]s[170]24,15:[142]
  277. 2770 [143] character data
  278. 2780 [131]159,231,231,231,231,129,195,231,255
  279. 2790 [131]65,,62,107,85,34,20,8,.
  280. 2800 [131]77,128,64,32,16,8,4,2,1
  281. 2810 [131]78,1,2,4,8,16,32,64,128
  282. 2820 [131]113,,,,,255,15,15,15
  283. 2830 [131]114,,,,,255,240,240,240
  284. 2840 [131]163,231,129,219,195,219,129,195,129
  285. 2850 [131]164,247,247,247,247,247,227,247,247
  286. 2860 [131]165,189,129,137,189,165,129,195,231
  287. 2870 [131]166,231,219,231,231,231,231,231,231
  288. 2880 [131]167,60,90,102,118,118,118,181,195
  289. 2890 [131]168,231,195,231,195,129,126,129,195
  290. 2900 [131]169,255,255,231,219,219,231,255,255
  291. 2910 [131]170,255,193,148,170,221,235,247,255
  292. 2920 [131]171,255,129,129,129,195,231,231,129
  293. 2930 [131]212,189,189,189,189,189,189,189,189
  294. 2940 [131]40,1,1,7,11,9,3,4,12
  295. 2950 [131]41,128,128,224,208,144,192,32,48
  296. 2960 [131]201,255,223,207,199,195,193,225,255
  297. 2970 [131]83,255,201,193,193,227,247,255,255
  298. 2980 [131]213,255,251,243,227,195,131,135,255,-1
  299. 2990 [143] monster sprite data
  300. 3000 [131] 000000000000000000000000021840253ca454ff2a8dffb197ffe19bffd1ffffffdb
  301. 3010 [131] ffd3d8ff13481812483c12447e22407e02203c040042000000000000000000000000
  302. 3020 [131] 000000000000f80001fc0002aa000272000202000104000088000070200070400070
  303. 3030 [131] 40007060007830003c1c001e0e003c3c0078f0003fe0001fc0000400400c7c6012ba
  304. 3040 [131] 9011931009ff2007bbc001c7001f7de03f83f0f3ff7ca17a1ec0fc05c3fe03c7cf03
  305. 3050 [131] ce0383ce01c6f701eee387fcd1e65c68676a13e0100400000c70cc1289ee31c1ff64
  306. 3060 [131] 63f1c23264c6642a6cccaa66dc24e37e71e33fffe63ebafc3c827a1800318c447987
  307. 3070 [131] 45ebcffffe7bf7de3fbffe6dedb7ffffff04003c00007e020042020066020066023d
  308. 3080 [131] bd8267bdc277ffe243dbe25aff777e663f7e5a1e3cff00017e8003ffc00781e00f00
  309. 3090 [131] f00e00700e00700e00703e007c1e03ffc005ffa00eff701f7ef81ffff81ffff83fc3
  310. 3100 [131] fc3f00fc3e007c3c003c3c003c3c003c3c003c3c003c3c003c3c003cfc003ffc003f
  311. 3110 [131] 000000000000000000ff000000007e0000ff0000810000810200e70200e70200e702
  312. 3120 [131] 737ec2ff7ee28d7ee2cf7ef285fff2b7bdfab5bdfab7fffafde7fafde7bafc993ff8
  313. 3130 [131] ff1f71ff8fff005400007c00004400007c0000fe00017d0003bb8007c7c00fefe00d
  314. 3140 [131] ff6018ee301c7c7010ee1001ff0001ef0000fe00006c0000fe0000ee0001ff0003ef
  315. 3150 [131] 80ff38770e20ff8221f7c203ffe003f7e003ffe003f7e003ffe001f7c000ff8000f7
  316. 3160 [131] 8000ff8000f78000ff8001f7c001ffc003f7e003ffe007f7f00ffff81ff7fc040000
  317. 3170 [131] 00000000000000000000004900005d00007f00005500006300007f0000be80015d60
  318. 3180 [131] 07a2f80fddfc1fe3fc1dffdc1df7dc19ffcc38f78e387f0e307706041c0070220088
  319. 3190 [131] 216d0820c60824fe482abaa8309218236dc807a9e00dbae00cc2600e7dc007fa8001
  320. 3200 [131] ba8000ed4000c60001830001818000818000420001c38000e3ffdee1f586c1faffba
  321. 3210 [131] f5877f750105ba8004bf00097fc000e0e001c0600380e00300c00380c00181800183
  322. 3220 [131] 0001830001838003c1800301e00781f01a425c0060001c90001288002188002184c6
  323. 3230 [131] 418383818383a185c3a185ffd1897ea9953cc953998a22ff440ceb301f6b787fbef8
  324. 3240 [131] 77ddf8e5e3b8c2ff5cc318cee1ff8e000fe07c0fc07c0f807c0f807c1f00381e0038
  325. 3250 [131] 1f007c1f00f83f00f03e01e03e01e01e01e01e03c00e03c00e478007878003878003
  326. 3260 [131] 87000787800ac760148a90fc7fbf7efbc0effbf7effbf7effdffeff60c1ff7ffeff3
  327. 3270 [131] fc6ff27bafe3b7e7efd737ffa53f78b49f715ae32139e001ffe003ffe003fff003ff
  328. 3280 [131] f007e1f807c0f8fc0780000860001830303010e06019c0c00dc08007c08023ef8021
  329. 3290 [131] ff8020ff8040bf80419f80638f8053c3806bff8097ff811bff8615ff443fbd283fdd
  330. 3300 [131] 101feffc0001e00006100c0c1807080c03980603b00303e001f7c401ff8401ff0401
  331. 3310 [131]fd0201f98201f1c601c3ca01ffd601ffe901ffd881ffa861bdfc22bbfc14f7f808fc,x
  332. 3320 [143] bit masks
  333. 3330 [131] 0,4,6,7,15,48,64,128
  334. 3340 [143] monster colors
  335. 3350 [131]0,5,2,6,15,1,7,5
  336. 3360 [143] dungeon map
  337. 3370 [131]"010111010101111001110101011100100101111111010010010"
  338. 3380 [131]"100000101111001111111110010100101010100101010011110"
  339. 3390 [131]"01111111100101010101001010000011100110000001010011001111100"
  340. 3400 [131]"111111010010010001000011111111001111110010001000010101111111110"
  341. 3410 [143] object shape strings
  342. 3420 [131] "","onononon(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd*cmd+"
  343. 3430 [131] "on(NULL)stepcmdcmdcmdcmdpeekor^peekcmdcmdcmdcmdpeek/exppeek"
  344. 3440 [131] "ononon(NULL)cmd(NULL)cmdpeekcmdpeekcmdpeek","cmdcmd(NULL)"
  345. 3450 [131] "oncmdcmdcmdvalcmdcmdcmdsteptab((NULL)cmdcmdcmdwait(NULL)tab(waitstep"
  346. 3460 [131] "oncmdcmdcmd(NULL)(NULL)(NULL)fncmdcmdcmdcmdfnfnfnfncmdcmdcmdcmdfnfnfnfn","cmdatn"
  347. 3470 [131] "oncmdcmdascasccmdcmdwait(NULL)stepcmdcmdstep(NULL)"
  348. 3480 [143] monster types
  349. 3490 [131] 1,1,2,2,3,3,4,5,5,5,6,6,6,6,7,8
  350. 3500 [143] monster shape data
  351. 3510 [131] %,&,',(,),),",",/
  352. 3520 [131] %,&,',(,),),",",/
  353. 3530 [131] %,&,',(,"*+","*+","-.","01"
  354. 3540 [131] %,&,',(,"*+","*+","-.","2345"
  355. 3550 [143] sprite locations
  356. 3560 [131]a0bfa0958a6bba6ba0aaa081ac8dac97,x
  357.